10 DV=PEEK(186):IFDV<8THENDV=8
20 DIMA$(255),G$(16):BK$=" [146]"
30 FORI=1TO16:S$=S$+CHR$(160):NEXT
40 PRINT"[147][159]":POKE53280,0:POKE53281,0
50 TY$(1)="[211][197][209]":TY$(2)="[208][210][199]":TY$(3)="[213][211][210]":TY$(4)="[210][197][204]":TY=2
60 ND$="":FORI=1TO16:ND$=ND$+CHR$(0):NEXT
70 DT$(0)="1541/1571 TYPE DIRECTORY"
80 DT$(1)="1581 TYPE DIRECTORY   "
90 DT$(2)="[195][205][196] [206]ATIVE MODE DIRECTORY"
100 TD(0)=18:SD(0)=1
110 TD(1)=40:SD(1)=3
120 TD(2)=1:SD(2)=34
130 GOTO740
140 :
150 :REM PRINT AT
160 :
170 POKE211,X:POKE214,Y:SYS58732:RETURN
180 :
190 :REM READ DISK
200 :
210 OPEN15,DV,15,"I0":GOSUB580
220 OPEN1,DV,2,"#":GOSUB580
230 T=TD(DT):S=SD(DT)
240 PRINT#15,"U1:";2;0;T;S:GOSUB580
250 FORI=0TO255
260 GET#1,A$(I):IFA$(I)=""THENA$(I)=CHR$(0)
270 NEXT
280 F=0
290 B=32*F+4:FF$=""
300 FORI=1TO16
310 FF$=FF$+A$(B+I):NEXT
320 IFASC(A$(B-2))=0THEN1140
330 F=F+1:IFF<8THEN290
340 T=ASC(A$(0)):IFT=0THEN1340
350 S=ASC(A$(1)):GOTO240
360 PRINT"[147][150]          [215][160][193][160][210][160][206][160][201][160][206][160][199][160]![160]![160]"
370 PRINT"[159]         [196]O NOT TURN OFF DRIVE
380 [153]"      UNTIL ACTIVITY LIGHT IS OFF!
390 PRINT"[158]          [208]LEASE PRESS A KEY."
400 WAIT198,1
410 :
420 :REM WRITE RIGHT HERE
430 :
440 B=B-2:PRINT#15,"B-P:";2;B
450 PRINT#1,CHR$(128+TY);
460 PRINT#15,"U2:";2;0;T;S:GOSUB580
470 PRINT:PRINT:PRINT"[159][214]ALIDATING DISK ...."
480 PRINT#15,"V":GOSUB580
490 CLOSE1:CLOSE15
500 PRINT"[147]  "FF$"[159] HAS BEEN REVIVED!
510 [153]"  (null)SE A COPIER TO TRANSFER IT TO
520 PRINT"  ANOTHER DISK.  [208]RESS A KEY.
522 [151]198,0
530 [161]A$:[139]A$[178]""[167]530
540 [138]
550 :
560 :[143] READ ERROR
570 :
580 [132]15,EN,EM$,ET,ES
590 [139]EN[178]0[167][142]
600 [153]"LOADDEF"EM$:[160]1:[160]15
610 [153]"OPEN  (null)ESUSCITATION FAILED BECAUSE OF THE "
620 [153]"  ERROR.  RIGHT$F YOU CAN CORRECT THE ERROR"
630 [153]"  RUN THE PROGRAM AGAIN."
640 [153]"  RIGHT$F ERROR OCCURRED DURING VALIDATING,"
650 [153]"  CHECK DIRECTORY.  RIGHT$F FILE NAME IS"
660 [153]"  THERE, FILE MAY BE OK.  (null)RY IT."
670 [153]"  RIGHT$F IT WORKS, COPY IT TO ANOTHER"
680 [153]"  DISK.  (null)RESS A KEY."
682 [151]198,0
690 [161]A$:[139]A$[178]""[167]690
700 [138]
710 :
720 :[143] START SCREEN
730 :
740 [153]"LOADLIST      (null)ATN(null)(null)RIGHT$LENVAL MID$(null)(null)VAL(null)' (null)&STR$ ASCRIGHT$(null)VAL LEN(null)(null)
750 PRINT:PRINT"[159]  [212]HIS PROGRAM WRITES TO THE DISK."
760 PRINT"  [217]OU SHOULD BE WORKING WITH A [195][207][208][217]
770 [153]"OPEN  OF THE DISK WHICH HAS A SCRATCHED
780 PRINT"  FILE YOU WANT UNSCRATCHED.
800 [153]"LIST           LENONTINUE?  (YLIST/NLIST)"
810 [161]A$:[139]A$[178]""[167]810
820 [139]A$[178]"Y"[176]A$[178]"(null)"[167]940
830 [153]"OPEN      (null)O TRY AGAIN ENTER (null)(null)(null).":[128]
940 [153]"LOAD"
950 [153]"LIST (null)ELECT DRIVE TO BE USED"
960 [153]"  1.OPEN (null)OGGLE STR$EVICE # SYS   CMDCMDCMD"DV
970 [153]"  2.OPEN ATNCCEPT
980 PRINT"  3.[159] [209]UIT
990 [161]A$:[139]A$[178]""[167]990
1000 [139]A$[179]"1"[176]A$[177]"3"[167]990
1010 [145][197](A$)[137]1020,1040,830
1020 DV[178]DV[170]1:[139]DV[178]17[167]DV[178]8
1030 [137]950
1040 [153]"LIST        (null)LACE DISK IN DRIVE"DV
1050 [153]"LIST          AND PRESS ANY KEY.
1060 GETA$:IFA$=""THEN1060
1070 GOSUB1380
1080 PRINT"[155]        [212]HIS WILL TAKE A WHILE.
1090 [153]"DEF         (null)(null)VALATN(null)VALCLOSEPEEKVALCLOSE(null)ATN(null)RIGHT$VAL(null)(null)!!!
1100 GOTO210
1110 :
1120 :REM IS THIS IT?
1130 :
1140 IFFF$=ND$THEN330
1150 PRINT"[147][159]     "FF$
1160 PRINT:PRINT"[155]   [201]S THIS THE FILE? (Y[155]/N[155])
1170 [161]A$:[139]A$[178]""[167]1170
1180 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 1210
1190 [139]A$[178]"N"[176]A$[178]"(null)"[167][153]"LOAD":[137]330
1200 [137]1170
1210 [153]"LOAD"
1220 [153]"LIST (null)ELECT FILE TYPE
1230 PRINT"  1.[159] [212]OGGLE TYPE    [158]"TY$(TY)
1240 PRINT"  2.[159] [193]CCEPT
1250 [153]"  3.OPEN (null)UIT
1260 GETA$:IFA$=""THEN1260
1270 IFA$<"1"ORA$>"3"THEN1260
1280 ONVAL(A$)GOTO1290,360,830
1290 TY=TY+1:IFTY=05THENTY=1
1300 GOTO1220
1310 :.
1320 :REM NO MORE FILES
1330 :
1340 PRINT"[147][155]    [212]HERE ARE NO MORE DELETED FILES.":CLOSE1:CLOSE15:GOTO830
1350 :
1360 :REM CHECK DRIVE TYPE
1370 :
1380 OPEN2,DV,2,"$"
1390 GET#2,A$
1400 CLOSE2
1404 KA=KA+1:IFKA=1THEN1380
1410 IFA$="A"THENDT=0:GOTO1440
1420 IFA$="D"THENDT=1:GOTO1440
1430 IFA$="H"THENDT=2:GOTO1440
1434 GOTO1470
1440 PRINT"[159]          [196]RIVE"DV"CONTAINS A "
1450 PRINT:PRINT"       "DT$(DT):PRINT
1460 RETURN
1470 PRINT"[147]    [150][197]RROR!!![155]  [196]IRECTORY TYPE UNKOWN."
1490 PRINT"    [208]RESS A KEY TO START OVER.
1500 [161]A$:[139]A$[178]""[167]1500
1510 [138]
10000 DV[178][194](186):[159]15,DV,15,"S0:FILE CPR":[160]15:[148]"FILE CPR",DV:[128]